home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / Formatter / Format
Encoding:
Text File  |  1985-05-31  |  3.0 KB  |  42 lines  |  [TEXT/TRUE]
  1. ╘C╬bformatss1,s,l└└└ΓεΩéá ΦÇá└äáαöYêá8ΓαÉö
  2.     └    É└
  3. µ Çáµ
  4. éáɵ éáÉÉÉΓαèÆ└├├├╔╧╞╠╟┬─├┬├╬╚┬┬╟┬Ç╜┴ñ£ ╙vmincomc35vnewindc0vnumflagc1vitvp2vindvpvc2vclkeyword tvisonelinec4lonelineif tc3lindent tc5vlvl2vr2ljoin ta2arg$vc$ec0c9vnum$cvl$vutext$vtext$vkey$cSETcASKcIFc vcom$ltrisect tcSELECTcLINEcBOXcOPTIONcEXITcCAUSEcPLOTvx$cPOINTScPOINTS:cLINEScLINES:cAREAcAREA:cTEXTcTEXT,cENDlkeyword tcMATcINPUTcPRINTcREADcWRITEcDECLAREcINTERNALcEXTERNALcGETvsavedkey$c:cMAXcTHENcELSEcDOcSUBcPICTUREcDEFcFUNCTIONc=cFORcWHENcLOOPcEND IFcEND SUBcEND DEFcNEXTcEND PICTUREcEND FUNCTIONcEND SELECTcEND WHENcELSEIFcCASEcUSEljoin t1,a1line$ss1,s,formatstrisectskeywordssetasksonelineifsindentsjoinstrisectss,s,s,getlinenumss,s,sepcomskeywordss,n,n,s,nextwordsaddkeysaddkeyssetaskfs,s,n,posnqsonelineifsindentsjointrisect in formats"╞éá É    
  5. ∞äáα
  6. É
  7.  
  8. ö
  9. ö
  10. Æ*└╞┼─├├─╚┴keyword in formatsÉ           µ Çáµ Çáµ Çáµ Çá µ Çáµ éáÉ
  11. äá▄µ éáQ└     É     
  12. µÇáµéá└     äá3µÇáµéá└     äá!µÇáµéá└     äáµ Çáµ!éá└     äáൠ"éáö
  13.     ╩    Çá
  14. É
  15. ∞ #∞# äáhµ $éá>└     É     
  16. µ%Çáµ&Çá µ'Çáµ(éá└     äáµÇáµéá└     É
  17. äáäá$µ )éáÉ
  18. µ*Çáµ+éáÉ
  19. äá µ ,éáÉ
  20. äáε         #≡#
  21.     Æ99└╞α$┬╔├╞╠├╧├╧├╧├╔╩┬╚╔├╞╪├╧├┬├╔┬╬╔┬├╩┴addkey in formatsÉ     
  22.     Æt└╞┴setask in formats0α -╠     É    . ╞ éá
  23. ɵ/éáÉäá ╠     É          É α- Æz└├─╞╞┬╚├─╞┬├┴onelineif in formats5└α -É    0 ╠     ö
  24.     ╚    Çá└É É    1 ╞ Çá╠     É α- ÆÇï└├├╞─╩├┬╞╞─┬├┴indent in formatsφµ 2éá╠
  25. äá▀µ éá
  26. ╞éá╠
  27. äá╠µ 3Çáµ 4éá╠
  28. äá╣µ 5Çáµ 6éáÉ    7 ╞éá╠
  29. äáܵ 8éá╠
  30. äáìµ Çáµ 9éá╠
  31. äázµ :Çáµ ;éá
  32. ╬
  33. └
  34. äádµ <Çáµ =Çáµ >Çá µ ?Çáµ @éá
  35. ╬
  36. └
  37. äá<µ AÇáµ Béá
  38. ╬
  39. └
  40. äá&µ 1Çáµ Céá╬
  41. 
  42. äáµ DÇáµ Eéá╬
  43. 
  44. äáÆ6Çó└╞─╔╩╧─╧╨╔─╧─╧╟α!╟╧╟╧─╧─├┴join in formatsq╩
  45. Çá└
  46. µ
  47. ÇáKö
  48. F∞FF∞F
  49. µÇá5ö
  50. ╠öö╚éá╠╬╬╬öF∞FF∞FäáαµÇá
  51. ö
  52. F∞FF∞FÆÇ═└╔╞═╞──┼┼╬╒├├╙┴╘C╔b
  53. getlinenumss,s,s,3ö
  54. └êáεΩéáΩÇáäáè#╬εεÆÇσ└─╩┼╧┬╔┼┴b(vlengthvjc1tta1line$a2num$a3rest$vch$c0c9ss,s,s,getlinenum╘C½bsepcomss,s,!É╞éáαäáε╬εÆÇ≤└╞╞├├┼╔┴_vpc1c0cMAXNUMta1line$a2comment$c!css,s,sepcomfs,s,n,posnq╘CΓbnextword    ss,n,n,s,J╠ö
  55. êáεµÇá    µÇáäáè#∞öö╚éáö╬εÆÇ└╧┼╧┬╩╞╦─┼┴d"a2p1a3p2c1ttvp3c0a1line$a4word$vc$c c,tss,n,n,s,nextword╘Cφbposnqfs,s,n,]ö╚éáM└╠ö╞Çá╩éáäá1╠ö╞éá    └äáäá╩éáö╞éáäáäƒ╢└ÆÇ└╞╞├╩╧╩╞├├╔╞╔├├┴Z)i3pstarto4posnqvpc0vqposc1ti1line$i2s$c"fs,s,n,posnq